Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmINV165
		Inherits System.Windows.Forms.Form
		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmINV165_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT * " & "from ITC;"
			Adodc1.Refresh()
			VB6_AddADODataBinding()
			Dim myDataCaptions As String() = {"Code", "Description", "Doc Label", "Doc code", "Ref Label", "Cust/Vendor Label", "Cost Entry", "Open Balance", "Recieved", "Sold", "Adjusted", "On ordered", "Cost"}
			Dim myDataFields As String() = {"TCTTC", "TCDSC", "TCDLB", "TCCLB", "TCRLB", "TCCVL", "TCCYN", "TCEFO", "TCEFR", "TCEFS", "TCEFA", "TCEFP", "TCEFC"}
			setDataGridView(myDataCaptions, myDataFields, Me.grdTransaction)

		End Sub
	End Class
End Namespace